home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / EasyTools / EASYmemtest < prev    next >
Encoding:
Text File  |  1996-12-13  |  2.3 KB  |  91 lines
  1. /*
  2.  
  3. $VER: EASYmemtest 1.0 (05.10.95) by David De Groot
  4.  
  5. This script works with 'gvpmemtest' in your c: dir.
  6.  
  7. */
  8.  
  9.  
  10.  
  11.  
  12.  
  13. signal on break_c
  14. options failat 21 
  15. NL = '0a'x
  16.  
  17. bool = exists('libs:rexxreqtools.library')
  18. if bool = 0
  19.  then say "You need RexxReqTools.library"
  20. else call addlib('rexxreqtools.library',0,-30)
  21.  
  22. mcheck = exists('c:gvpmemtest')
  23. if mcheck = 0
  24.     then do
  25.      call rtezrequest("GVPMEMTEST is not in C:.",, 
  26.                       "Sorry!","ATTENTION!!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  27.     exit 
  28.   end
  29. else 
  30.  
  31. Date = date()
  32.  
  33. start:
  34. call rtezrequest("" nl "Check your computer's memory: " nl,
  35.                  "(Enter ctrl-c for a break)" nl "",,
  36.                  "_Fast RAM|_Only CHIP|_Explain|_Quit"," EASYmemcheck " || date || "" , 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  37.   
  38.  
  39. if rtresult == 1
  40.  then do
  41. address command
  42. 'gvpmemtest 5'
  43.  
  44. say ""
  45. say "Close window when done."      
  46.       end
  47.  
  48. if rtresult == 2
  49.  then do
  50. address command
  51. 'gvpmemtest 5 -CHIP'
  52.  
  53. say ""
  54. say "Close window when done."       
  55.       end
  56.  
  57. if rtresult == 3
  58.  then do
  59. call rtezrequest("This program is actually a small script that calls two" nl,
  60.                  "memory test programs to allocate all of the RAM currently" nl,
  61.                  "in your system (and not in use) and performs tests on it." nl,
  62.                  "These tests include writing random values to a RAM address" nl,
  63.                  "and then reading it back to compare with the original value." nl,
  64.                  "If any errors occur, it will report them to the screen." nl,
  65.                  "Since it is almost impossible to detect which chip on a" nl,
  66.                  "SIMM module (or even which SIMM module) is at fault when an" nl,
  67.                  "error is reported, attempts should be made to slowly reduce" nl,
  68.                  "the amount of RAM in the system (and the tests re-run) to" nl,
  69.                  "determine where the bad RAM chip may be.",,
  70.                  "_I see","Short:", 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  71.  
  72.   
  73. signal start
  74. end
  75.  
  76. if rtresult == 0
  77. then
  78. exit
  79. return 0
  80.  
  81.  
  82.  
  83. break_c:       
  84. call rtezrequest("You entered a break.",, 
  85.                  "Right!","Heho!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  86. exit
  87.  
  88. /*  Futureplans: NON WHATSOEVER! ;-) */
  89.  
  90.  
  91.